home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t1.d64 / heli.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  43 lines
  1. 1 REM WRITTEN BY DAVID BRADLEY
  2. 2 REM TPUG COMMODORE 64 LIBRARIAN
  3. 5 A=2
  4. 6 POKE53280,0:POKE53281,0
  5. 10 PRINT"[147]"
  6. 20 V=53248
  7. 22 POKEV+23,1:POKEV+29,1
  8. 30 POKE V+21,1
  9. 40 POKE 2040,11
  10. 50 FOR K=0TO62:READ Q:POKE 12928+K,Q:POKE 12800+K,Q:NEXT
  11. 51 FOR K=0TO62:READ Q:POKE 12864+K,Q:NEXT
  12. 52 FOR K=0TO62:READ Q:POKE 12992+K,Q:NEXT
  13. 55 POKEV,25
  14. 60 FOR N=50TO210STEPA:POKEV+1,N:GOSUB1000:NEXTN
  15. 62 FOR N=25TO255STEPA:POKEV,N:GOSUB1000:NEXTN
  16. 64 FOR N=210TO50STEP-A:POKEV+1,N:GOSUB1000:NEXTN
  17. 66 FOR N=255TO25STEP-A:POKEV,N:GOSUB1000:NEXTN
  18. 100 GOTO55
  19. 510 DATA 0,0,0,0,0,0,0,31,255
  20. 520 DATA 0,0,64,0,0,64,0,0,64
  21. 530 DATA 0,7,240,0,31,140,248,127,134
  22. 540 DATA 33,255,134,39,255,134,47,255,134
  23. 550 DATA 127,255,140,127,255,248,63,255,240
  24. 560 DATA 0,129,0,0,129,0,16,129,8
  25. 570 DATA 15,255,240,0,0,0,0,0,0
  26. 610 DATA 0,0,0,0,0,0,0,0,127
  27. 620 DATA 0,0,64,0,0,64,0,0,64
  28. 630 DATA 0,7,240,0,31,140,56,127,134
  29. 640 DATA 33,255,134,39,255,134,47,255,134
  30. 650 DATA 127,255,140,127,255,248,63,255,240
  31. 660 DATA 0,129,0,0,129,0,16,129,8
  32. 670 DATA 15,255,240,0,0,0,0,0,0
  33. 710 DATA 0,0,0,0,0,0,0,31,192
  34. 720 DATA 0,0,64,0,0,64,0,0,64
  35. 730 DATA 0,7,240,0,31,140,224,127,134
  36. 740 DATA 33,255,134,39,255,134,47,255,134
  37. 750 DATA 127,255,140,127,255,248,63,255,240
  38. 760 DATA 0,129,0,0,129,0,16,129,8
  39. 770 DATA 15,255,240,0,0,0,0,0,0
  40. 1000 X=X+2:IFX>4THENX=2
  41. 1010 POKE2040,199+X
  42. 1020 RETURN
  43.